home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
me_cd25.zip
/
ME2MUTT.ZIP
/
SOFTPOP.MUT
< prev
next >
Wrap
Text File
|
1992-11-09
|
400b
|
17 lines
;; softpop.mut : popup a window showing the soft keys
;; C Durland Public Domain
;(include popup.mut)
(defun
softkey-box MAIN ; popup a box with the softkey bindings in it
{
(int j)
(popup-window 5 50 25 10)
(for (j 1) (< j 10) (+= j 1)
(wputs (concat " f" j ": "(key-bound-to (concat "F-" j)))))
(wputs (concat " f10: "(key-bound-to "F-0")))
}
)